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Winning Christmas Card Program by S. Hansen generates snowflakes and old English lettering. See page 7 for contest results 
and page 10 for the program listing. 



4051 Plots Roads in Australia 

by E.S. Webber 
Sydney, Australia 

(At the request of TEKniques^ Laurie, Montgomery and 
Pettit Pty. Ltd., consulting engineers and Tektronix 
Australia customers, obligingly subitted the following 
article through Tektronix Australia.) 

Our most ambitious graphics effort so far is the perspec- 
tive plotting of a road. Our client had questioned the sight 
lines and aesthetics of a section of a country road, straight 
in plan, where the vertical curves in our design were not 
continuous. They thought the effect might be a "kink" at 
the junction of the straights and the curves. The object of 
plotting the perspective of the road, therefore, was to 
investigate this possibility, and demonstrate if possible 
that the sight lines would have a smooth transition. 

About two kilometres of road were critical, and cross 
sections were available every 25 metres. Fourteen points 
were used to fully define each cross section, including the 
standard template defining embankment and cutting 



slopes. Since not ail the points appeared on every section, 
some were doubled up in order to keep the sequence the 
same. (See Fig. I.) 
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Fig. La. Cross section— all embankment. 






\ 

\ 

\ 

\ 

^ H«rd Shou(d«r 

\ D n 


/ 

“ ~ _ ' 

' ''7 

10 


Fig. Lb. Cross section — all cutting. 
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Fig. I.c. Cross section — half-and-half cutting and embankment. 



3D-Data for the perspective plot was generated by an 
initial program (ROADSECT) which stores the standard 
cutting and embankment templates. For each cross 
section, it is then necessary only to enter four elevations: 

1 . Ground level a standard distance, say 1 5 metres left 
of centreline (point 1) 

2. Ground level at centreline (point 14) 

3. Ground level 15 metres right of centreline (point 
13) 

4. Road formation level at centreline (point 7) 

ROADSECT then checks at each cross section whether 
the road is all in cutting, all in embankment, or one side in 
and one side out; and then generates the 2-D data for all 
the other points, and stores it in a tape file. Sections were 
at regular intervals, so the Y dimension was not stored. 
There was no requirement for horizontal curves, road 



junctions, or other complications, but a little further 
effort in programming could accommodate these. 

The second program is an adaptation of the perspective! 
plotting routine given in the "PLOT 50 Introduction to 
Graphics Programming in BASIC" manual. The "draws" 
were set to connect points on consecutive cross sections 
having the same array number i.e., all point sevens were 
connected, all point eights, etc. Finally, the cross section 
was drawn for the end closest to the "camera." 

Once the data was prepared by ROADSECT, the 
ROADPERSPECT program allowed input prompts to 
select at will: 

The number of cross sections plotted 

The number of repeat plots, and the distance incre- 
ment between each repeat 

The eye location (3 coordinates) 

The perspective centre (3 coordinates) 

Forward or backward view along the road. 



When the most effective viewpoint etc., had been 
determined after several screen displays (some recorded 
on the hard-copy unit), the program was amended to 
create a plot on a Hewlett Packard 7202 plotter (bought 
previously, not in preference to the Tektronix plotter) 
using the Datacom interface. Removal of some hidden 
lines was achieved by watching the screen display and 
switching the plotter on and off at appropriate times. (The 
plotting speed was rather slow: about 10 minutes for each 
example shown.) Also, the program was modified so that 
the point-plot feature of the plotter was activated for the 
road centreline, and 50 m marker posts were drawn on 
the hard shoulder, each one metre high, thus giving a 
better feeling of scale (Fig. 3). 
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Fi^. 3. a. Stereo left view— eve at -30 (x), 4090 fyj, 900 (zj metres. 




Fig. 4. Goulbourn to Pejar Dam Road — eye at 10 metres above and to 



left of centreline. 



Views were produced from many different viewpoints. 
Initially, the eyeline of a driver of a car was simulated as 
he drove down the road in each direction. The results of 
this were a little disappointing (Fig. 2) because points 
more than a hundred metres away merged to a single blob 
on the screen. A much more explicit effect was obtained 
by moving the eye point (in response to an input prompt) 
about 10 metres up and 30 m to one side of the road, even 
though it is unlikely anyone would see the view from such 
a position. 

Finally, stereo pairs were made by means of a 1 metre eye- 
shift. When viewed through a stereoscope, the landscape 
popped into view very effectively, with the road superim- 
posed. 

Another program developed for the 4051 is RESLAG, a 
Reservoir Flood Routing Program. This program is 
capable of routing a flood through a storage area, with the 




Fig. 3.b. Stereo right view— eve at -29 fx), 4090 G'), 900 (z) metres. 




outflow initially controlled by pipe capacity and later by 
spillway capacity if the water level rises above the spillway 
crest. Any form of outflow is accepted; variable water 
surface area is assumed. 

The program optionally supports a printer and / or a hard- 
copy unit. It will output time, infow, outflow, depth, area, 
and volume, along with maximum depth and outflow. 
The program will also plot input and output 
hydrographs. 

In its present form, the Road Plotting Program is most 
useful for straight roads, but can be modified. Both will be 
upgraded for prospective customers. Both the Road 
Plotting Programs and the Reservoit Flood Routing 
Program may be purchased from Laurie, Montgomery, 
and Pettit Pty, Ltd. Their address is K.M.S. Building, 8- 
24 Kippax St., Sydney, N.S.W. 2010, Australia. 
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Computer-Aided Design 
Contest 

Do you have a 405 1 program for computer-aided design? 
Or, have you been thinking about writing one? Weil here’s 
contest news for you! Send in any 4051 program for 
computer-aided design to TEKniques. Your program can 
be for circuit board design, ship hull design, mechanical 
parts design, kite design — anything that you’d like to 
design. 

Programs must be submitted on a tape cartridge, and 
must be accompanied by program documentation and a 
submittal form and order form for your exchange 
programs. All programs will be entered into the 4051 



Applications Library. Each entry will receive the usual 
new tape with three programs of your choice, so you can’t 
lose. 

The First Prize winner will receive 15 new tapes and 15 
programs from the library. The Second Prize winner will 
receive 10 free tapes and 10 programs from the library. 
Third prize is 5 tapes and 5 programs. 

Deadline for entries is March 31, 1978. Send your entries 
to: 4051 Applications Library, Tektronix, Inc. Group 
451, P.O. Box 500, Beaverton. OR 97077 



Survey Provokes 
Suggestions, Criticism 

A form was distributed with TEKniques Vol. 1, No. 6. 
questioning 4051 Applications Librar\' members about 
the services of the , Library'. Over 277c replied: their time 
and remarks are greatly appreciated. 

Of those who replied. 41% rated TEKniques as Very- 
Useful and 59% as Useful. There were no bad marks (Not 
Useful). The Programming Tips were the favorites, with 
"How To Do It" articles rating a close second. Following 
in order of popularity w^ere Applications and Product 
articles. Abstracts and Software Notices w^ere less pop- 
ular, but suggestions for improvement w'ere made. 

The program library^ received an even split between 
Useful and OK. However, 40% of those responding 
couldn’t find programs applicable to their needs, and 
wrote their own programs. Programs desired by members 
had engineering leading the field, with the scientific group 
right behind. Graphics and utility programs (both men- 
tioned often to be in the form of subroutines) followed 
closely, with business behind them. Also up for considera- 
tion were games, interfacing packages, military tactics 
and tutorial programs. 

Some suggestions for improving TE Kniques have already 
been acted upon. Several readers suggested printing 
articles without breaking their continuity, by continuing 
each article on an adjacent page. This is now being done. 
Abstracts received heavy criticism, most of it directed to 
their briefness. This has been improved with better (and 
lengthier) descriptions, along with inclusion of the 
number of statements in the program. 

However, several suggestions can only be implemented 
with your help. These suggestions include more 



applications articles, programming tips, and interfacing 
articles. TEKniques would love to publish your 
application — we’ll even write the article — but we must 
hear from you first. Any many of you may have a 
program tip that w'ould benefit other readers. After all, 
ingenuity runs rampant among programmers. Several 
articles have been published recently on interfacing the 
4051 with other equipment, and more are to come. But 
we’d like to publish more about how you are actually 
interlacing your 4051 with equipment; pictures or 
diagrams would be welcome. 

Lack of program documentation seemed to be the 
stumbling block for 52 members who would like to 
contribute programs to the Library'. Time, as always, is 
the main factor and any methods anyone has for speeding 
up the process or making it less painful will be published 
in TEKniques if you’ll send them in. 

Many of your replies included compliments, which are 
always nice to receive. One comment suggested raising the 
editor’s salary. Somehow this particular questionnaire 
floated to the top when the boss w'anted to look them 
over, but he managed to retain his usual taciturnity. 

Drop us a postcard or write us a letter. Tell us if you have 
an application and give us a telephone number so we can 
call and get the details. We want to hear from you^ — 
suggestions or criticisms. Don’t hesitate to pass them 
along. 

The 4051 Applications Library address is: Tektronix, 
Inc., Group 451, P.O. Box 500, Beaverton, OR 97077. 

EHZHL 
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Tektronix announces its first IEEE-48S interlacing Digital Processm'? Oscilloscope (DPO). 4051 computing power interfaced to 
programmable instrumentation enhances the ability to analyze the digitized wayeforms provided by the DPO. 



4051 And DPO Constitute Waveform Processing System 
Through New Interface 



By Dale Aufrecht, Tektronix SPS Engineering 

The Tektronix Digital Processing Oscilloscope (DPO) 
has already proven itself as a general waveform process- 
ing instrument. Now there is something new for the DPO 
— a special product that utilizes the 405 1 Graphic System 
to boost its capabilities into the realm of ATE (Automatic 
Test Equipment) systems. This new product is the 
P7001/IEEE 488 Interface (part no. 021-0206-00). 

The P7001/IEEE 488 Interface conforms to IEEE 
Standard 488-1975, "IEEE Standard Digital Interface for 
Programmable Instrumentation". This interface allows 
the DPO to be used with a controller compatible with 
IEEE 488. The Tektronix 4051 Graphic System serves 
ideally for this purpose. 

As an IEEE 488 device, the DPO can be a talker only ora 
listener only. When it is a talker the DPO can send 
digitized waveforms, readout information, and its current 
device status to the system controller or other IEEE 488 
device. As a listener it can receive data and commands 
from the system controller or another IEEE 488 device. 
The 4051 controls the talking and listening functions in 
the system. 



Interfacing occurs within the P7001 Processor section of 
the DPO. The P7001/IEEE 488 Interface is a dual-card 
assembly that is installed in the interface slots of the 
P700 1 . All necessary power for the interface is taken from 
the P7001 Power Supply via the Main Interface Board. 
Thus, converting the DPO to IEEE 488 hardware 
compatibility consists of little more than putting a card 
into a slot and throwing a few switches to set a device 
address. With appropriate system-controller software, 
the DPO becomes fully compatible with other IEEE 488 
instruments. The driver software was written specifically 
with the 4051 Graphic System in mind. 

Programming information is given in the P7001 IEEE 
488 interface instruction manual (part no. 061-1439-00). 
Complete examples are provided for using a 4051 
Graphic System as the DPO system controller. With the 
4051 interfaced to the DPO (via the P7001/IEEE 488 
interface) you have a powerful yet economical waveform 
processing system. D3HZj 
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4907 FILE MANAGER IS A POWERFUL GRAPHICS AID 



By Les Brabetz and Gary P. Laroff 

The last issue of TEKniques (Vol. 1 No. 9) introduced the 
4907 intelligent flexible disc mass storage unit for the 
4051. A SORTing program was also included in that 
issue. This month begins a series of articles on powerful 
graphics handling routines made possible by the large 
direct access storage capability and multiple-level file-by- 
name library structure supported by the 4907. Just as 
numerical records can be accessed in any order on the 
disc, so can graphic entities be stored and retrieved. 

Consider a large data base, perhaps the high resolution 
map of the United States in Fig. 1 . It might be desirable to 
plot the entire map. In this case all of the coordinates in 
the data base are required and can be read sequentially. 
This is as easy and convenient to do with data stored on 
magnetic tape as it is with disc storage methods. But what 
if only a subset of the map is desired? How is it possible to 
quickly locate those coordinates that will be plotted in the 
desired map area, and discard those that fall outside the 
boundaries? The file library^ system available on the 4907 
is designed to offer solutions to such graphic applications. 

The data base consists of about 3000 X,Y pairs and takes 
about four minutes to display. The objective is to store the 
data so that any map area can be chosen and quickly 
displayed. The data base designs are described in this 
article. Succeeding articles will present a program to 
construct a segmented data base from an existing 
sequential data base and another program that selects the 
segments to display. 

The map as originally digitized can be displayed with a 
number of DRAW commands and MOVE commands. 
The data is stored as a series of coordinates that can be 
displayed with a MOVE to the first coordinate pair and 



an array DRAW to the remaining coordinates. Because 
each of these data sections consists of a different number 
of coordinates, the number of coordinate pairs is also 
stored. The data format is: 

N, Xi, Yi, X2, Yz, . . Xn, Yn 

where N is the number of coordinate pairs. The data base 
could be read and displayed from either tape or disc with 
similar programming: 

FROM TAPE FROM 4907 

100 READ (?33:H 109 READ #i:H 

110 DELETE X,V 110 DELETE 

120 DIM X(N>,V<H) 120 DIM KCN>,Y<H> 

1 38 READ C-33 : X , Y 1 30 READ #1 : X , Y 

These arrays can then be displayed by a MOVE to the first 
point and a DRAW for the entire array: 

140 MOME X' l>,Ya> 

150 DRAW X,Y 

All of the arrays are READ and displayed in this manner. 
The data base consists of 30 arrays containing about 3000 
coordinate pairs. 

This data base is not optimized for displaying subsection^ 
of the map. With this filing method, four minutes ar^ 
required to display any map section because the 4051 
must READ every^ data pair and '"clip" all graphics that 
would appear outside the designated window. 

A far superior technique w'ould be to divide the map into 
many smaller sections. The program could then look at 
the desired plot boundaries and choose those map 
sections required for the display. The random file access 
feature of the 4907 makes this quite practical. For the 



Fig. 1. Master file of digitized map with arbitrary grid values. Fig. 2. Map data base illustrating segment division lines to produce 96 

map segments. 
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purposes of this description, 96 segments created a data 
base that could quickly display any section of the original 
map. Fig. 2 shows the map as segmented into eight 
divisions horizontally and twelve vertically. An attempt 
was made to select a segment definition which would 
create an equal distribution of coordinates between the 
file segments. The fine detail required by the eastern 
coastline and minimum detail required for western state 
boundaries caused the density of graphic coordinates to 
be far greater toward the eastern part of the map. Smaller 
segment definition was required in some areas in order to 
attain reasonably equal vector densities in each segment. 

Each segment is a rectangle and must contain the 
coordinates of intersection of any map lines with its 



borders. This is a substantial task; the program that 
builds this segmented data base will be discussed in the 
next issue. 

Once the segmented data base is completed (as 4907 files 
USMAP/SEGl through USMAP/SEG96), a simple 
program can be used to access the files, then quickly 
display any segment of the map. In this manner, one can 
rapidly access and display any section of a large data base 
(such as a map) and then use custom routines to add such 
information as county boundaries, major highways or 
weather information. CZ3IIZI: 



Christmas Card Contest 
Results 

The winner of the Christmas Card Design Contest is 
shown on the front page of this issue of TEKniques, The 
program, which draws six random snowtlakes and the 
greeting 'A1err\' Christmas" in old English type, w^as 
submitted by S. Hansen of Los Angeles, CA. The 
program also allows the option of printing names on the 
cards as well. 



Two other programs that were submitted are also 
included in this issue. "Random Snowflakes" was sub- 
mitted by Mark Mahall, a Tektronix S.A. "Christmas 
Card" was submitted by Dr, P. C. Holman of the 
University of Wisconsin, Stevens Point. TEKniques 
wishes to thank all entrants for their efforts. Happy 
Holidays! . 



^EDITOR’S NOTE 

There’s an Asterisk on Your 
Mailing Label 

As prior issues of TEKniques have mentioned, it is the 
desire of the TEKniques staff to provide TEKniques to 
everyone who wants it. However, we don’t want to mail it 
to those who don’t want or use it. Therefore, non- 
members who have been on the mailing list for longer 
than four months will be candidates for deletion from the 
distribution list. An asterisk has been placed on those 
mailing labels to denote this. If your mailing label carries 
an asterisk and you wish to continue to receive TEKni- 
ques, please complete and mail in the membership card 
accompanying this issue. If you don't receive Vol. 2, No. I 
by the middle of February, chances are your name has 
been dropped. 

More Than One Copy 

If you desire more than one copy of TEKniques for your 
office, you'll have to subscribe someone else to TEKni- 
ques. Our system has been designed to delete 
duplications. (For those of you who are getting two or 
more — the system is not perfect!) 



Publication Deadlines 

Great effort is being made to place and keep TEKniques 
on a six-week publication schedule. For this reason, the 
deadline for submitting articles is approximately six 
weeks prior to the publishing date. The following 
schedule will aid those of you planning to send in those 
useful tips and articles. 

Copy Publish 



TEKniques Deadline 


Date 


Vol 2 No 1 


Dec 5, 1977 


Jan 15, 1978 


Vol 2 No 2 


Jan 15, 1978 


Mar 1, 1978 


Vol 2 No 3 


Mar 1, 1978 


Apr 15, 1978 


Vol 2 No 4 


Apr 15, 1978 


Jun 1, 1978 


Vol 2 No 5 


Jun 1, 1978 


Jul 15, 1978 


Vol 2 No 6 


Jul 15, 1978 


Sep 1, 1978 


Vol 2 No 7 


Sep 1, 1978 


Oct 15, 1978 


Vol 2 No 8 


Oct 15, 1978 


Dec 1, 1978 


Catalog 

If you have 


Reminder 

not received a 4051 


Applications Library 



catalog of abstracts, write Tektronix, Inc. Information 
Display Group, P.O. Box 500, Group 45 1 , Beaverton, OR 
97077. Ca“~Z] 
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Binary Counters in BASIC 
(Save Memory Too) 

by Leland C. Sheppard 
Sunnyvale, CA 

During the rewrite of the Flowchart Program (51 00- 
8005 ' 1) it became evident once again that necessity really 
is "the mother of invention." 

One of the desired enhancements to the original 
Flowchart Program (51 / 00-8005,0) was the addition of 
page numbers to the Program’s branch table. This would 
serv^e as an aid to quick indexing into the flowchart. The 
original program used alpha page numbers; this limited 
the chart to 52 pages before a program error would occur. 
(Some programs exceed that amount.) The technique that 
is described here is a little slower than equivalent numeric 
methods, but really saves memory and overcomes the 52 
page limit. 

A one-character field was already being used for from/to 
page references (corresponding to the from/ to entries in 
the branch table). The aim vyas to get the Flowchart 
Program to run in a 16K 4051, so limiting the field to one 
character was important. The problem at hand was this: 
how can you count beyond nine in one byte? 

The solution is to treat the character as an ASCII Binary 
field. This allows a count to 127, which would be plenty 
for a page number value. The technique that is used to 
make that one-byte field a binary value is described in the 
following. (Note that the same technique can be used as a 
binary counter.) 

1. To convert a decimal number to binary: 
A$=CHR(A)— the "ASCII representation" of A is 
actually the decimal value stored in binary; the 405 1 
software will now allow you to store that value (AS) in 
another string (of counters, page numbers, etc.). For 
example, if the value of A is 67 decimal (as in say Page 
# 67) then the CHR function would represent it as the 
character "C" but the decimal equivalent is still 67. 



2. To convert binary to decimal: A=ASC(A$); you now 
have the 67 back in numeric form. 

3. To fetch, increment by 1 and save back (perhaps in a 
string of counters, where it is assumed that P=9 
because you want the 9th counter in the string; BS is a 
string of 1 byte counters and AS is a 1 byte string): 
AS=SEG(B$,P,1) to extract the counter byte at 
location P; A=ASC(AS) to convert the counter to 
decimal; AS=CHR(A+1) to increment the counter and 
convert back to ASCII/ Binary; BS=REP(.AS,P.l) to 
save the updated counter back in the counter string. 

Of course you can count to 127 in 1 byte since the 4051 
thinks it’s dealing with an ASCII character, but the 
technique is appropriate for many applications. 

If 127 isn’t great enough, the technique can be expanded 
to count larger values or store larger values. This will still 
save considerable memory over string or numeric techni- 
ques. The technique is as follows: 

1. Use two bytes per counter where the right hand byte 
will represent a value from 0-127 and the left hand 
byte will represent multiples of 1 28 ; the sum of the tw’o 
(after multiplying the left hand byte by 128) will yield 
your number. (Assume CS is a 1 byte string, P points 
to the counter number of field number desired, say 9, 
and BS contains the counters as before.) 

1 A$=SEG (B$,P*2-l,l) to get the left hand byte of 
the counter 

2 C$=SEG(BS,P*2,1) to get the right hand byte of 
the counter 

3 A=ASC(A$) to convert the "128’s" to decimal 

4 C=ASC(C$) to convert the "units" to decimal 

5 IF C is less than 127 THEN 10 to see if I can add to 
C 

6 C$=CHR(0) I can’t, it’s at maximum so set to zero 

7 A$=CHR(A+ 1 ) and add one to the "1 28’s" position 
and convert 

8 A$=REP(B$,P*2-1,1) to save the "128’s" back in 
B$ 

9 GO TO 1 1 to skip the next statement 

10 C$=CHR(C+1) to add 1 to the "units" position 
and convert 

1 1 CS=REP(B$,P*2,1) to save the units counter. 

Effectively, we’ve created a base 1 28 numbering system so 
that you can count to 16K-1 (16383 or 16256+127) in 2 
bytes instead of 5 using strings or 8 using numeric 
variables. (A 3 byte setup would yield a total count of over 
2 , 000 , 000 .) 

It is a slower technique than straight numeric, but if you 
have critical memory situations this technique may be 
important to you. 
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Speeding Up Trigonometric 
Functions 

by Herman D’Hondt 
Tektronix Australia 

Speed can be improved appreciably in situations where 
sines and cosines must be repeatedly computed in a 
FOR/ NEXT loop. This can be accomplished using the 
following well-known sum formulas: 

sin(a + b) = sin a cos b + sin b cos a 
cos(a + b) = cos a cos b - sin a sin b 

Accuracy is slightly diminished using this method. 

Usual Method 

130 SET DECREES 

lie FOR 1-0 TO 3€9 STEP 2 

129 X-SIHCI) 

130 Y«C0S<I) 

140 NEXT I 
150 PRINT X,Y 

PUH 

a 1 

Speed Method 

100 SET DECREES 
lia 0-SIH<2) 

120 B-C0S(2) 

130 X-0 
140 Y-1 

150 FOR I-l TO 168 
160 Xl»X»B4-RtY 
170 Yl-Yt8-X»9 
180 X»Xl 
190 Y-Yl 
200 NEXT I 
210 PRINT X,Y 

RUN 

-4.352074257E-13 0.9999SS95S9S9 



Deleting Parentheses to Save 
Memory 

by Aaron Eisenbach 

If you are running a program that was originally written 
for a Hewlett-Packard calculator (such as an H.P. 9821), 
you may be using more of your 4051 memory^ than you 
need to. The H.P. 9821, for instance, identifies simple 
variables as R(21), R(5), R(56), and so forth. The 
parentheses are not required for simple variables in the 
4051. You can save lots of memor\' by deleting the 
parentheses and using variables such as A-Z, A1-A9, Bl- 
B9, etc. 

In one example, a 900-register program for an H.P. 
machine, one thousand bytes of memory were saved by 
deleting unnecessary parentheses. 



Branching Techniques 

by J. L Aubel 

University of South Florida 

Branching on Yes-No 

Here’s another simple method for branching on a Yes-No 
response. (Other methods were published in TEKniques 
Vol. 1 No. 8.) 

180 Din C$<1) 

400 PRI *Do gou yi»h to contii^ut "f 
410 INP C$ 

420 GO TO <C$«*Y*)4l OF 599,699 
500 REH Ho Process in# 

600 REM Yts Proccssin# 

Branching for Output 

A variation of the above method works nicely for 
assigning output to the screen or the plotter. (Assume that 
the plotter is set to Device Address 1.) Use the following 
method: 

400 PRINT •Output to screen or plotter? (Enter S or P> 

410 INPUT Cf 

420 H-32“31»<C9-*P*) 

450 PRI 8H: . . . 

intro to Graphic Manual Valuable 

by Ken Cramer 

Look through the Introduction to Graphic Programming 
in BASIC manual ( 070 - 2059 - 00 ) supplied with your 405 1 . 
If you are a typical programmer, you probably skip over 
"introductory'' manuals and go right to the reference 
manuals. In the case of the Graphic Programming 
manual, you could be missing a lot of helpful hints. 
Sections three through eight have many examples and 
explanations that can give you valuable insight and a 
starting point for algorithms you need. Just knowing 
where to look things up can save many hours of 
programming effort. Take an hour to look through these 
sections; it’s worth it. : - i 







nttt SNOWFLiSKES BY S. HANSEN ttiit 

OUTPUT DEFAULT IS TO ^HE 4051 GRAPHIC SCREEN. TO OUTPUT 
TO PLOTTER, PRESS USER DEFINABLE KEY II, 

SThTEHENTS 1890 TO 1990 CONTAIN THE CODE FOR PRINTING 
THE INO:"IDUmL names SIG and GWEH'. 

SUGGESTED CODE TO SUBSTITUTE YOUR OWN LIME OF GREETING 
following merry CHRISTMAS': 

DEL 1890.1990 

131 PRINT -ENTER LINE OF GREETING' 

132 INPUT A« 

2311 X«65-LEN<Af) 

2312 Y=47 

2313 FOR TO 9.3 STEP 0, I 

2314 PRINT #T,2i;x.*I, Y>1 

2315 PRINT fT'.AI 
NE/T I 



1 REN SNOWFLAKE DESIGN 

2 REH AUTHOR - 3. HANSEN, LOS ANGELES, Cm. 

3 GO TO 186 

4 INIT 

5 T-l 

6 GO TO 110 
100 IHIT 
105 T-32 

110 SET DECREES 

120 WINDOW -34,34,-34,34 

130 PAGE 

140 FOR K-l TO 6 
150 READ H|M 

180 DATA 9,30.25,55.65,55,90,38,65,3,25,5 
ire UIEWPORT H,H440.n,M«'40 
130 A*2S 

190 B«RND‘ -rte.4>0.3 
200 FOR 1*0 TO 23 
210 C-0.966025TA 
220 D*0.51A 
230 FOR J*l TO 6 
240 ROTATE 60»J 
250 MOUE fT:0,0 
260 RHONE 0T:e,I 
270 RMOUE 0T:C,D 

289 PDRAW 0T:-C,-O 

290 RDPAW fT:-C,D 
■09 NEXT J 

; 10 A«RHDf-l IU6-I)*B 
320 NEXT I 
330 NEXT K 

348 WINDOW 0. 130.0, 100 
350 DATA e, 0,-64, -64 

360 DATA -14. 14. -6, -8, -7, -7. -8, -5, -0,-3, -10, -3, -1 1,-2, -11,0 

370 DATA -10, -1,-9, -1,-8, 3, -64, 0,-7, -6, -7, I, -64,0 

380 DATA -10, -2, -7, -2, -64,0, -6,-0, -6,0, -7, 2, -9, 3, -64,0 

390 DATA -13, 9, -11, 7, -9, 6, -7, 6, -5, 7, -4, 7, -3, 6 

408 DATA -64,0,-lO,7,-7,7,-5,e,-64,0,-13,9,-ll,S,-8,8 

419 DATA -6, 9, -5, 9,-4, 8, -3, 6, -64, 0,-6, -8, *2, -12 

420 DATA 2, -8. 2, 5, 3, 7, 4, 7, -64, 0,-2, -11, I, -9, 1,6 
430 DATA 0,7. 1,8, 2, 7. 1,6, -64, 0,-2, -2, 1,-2 

440 DATA -64, 0,-4, -10, -3, -10, 0,-7, 0,-3, -3, -3,-64, 0, -3,-1 

450 DATA 8, -1, 0. 6, -1, 7, 1,9, 4.7,3, S, -64,0 

4tc DATA 2,-8.6.-12,10,-0,10,5,11,7,12,7,-64,0.6,-11 

470 DATA 9, -8, 9, 6, 11, 8, -64, 0,6, -2, 9, -2, -64,0 

480 DATA 4, -10, 5, -10, 8, -7, 8, -3, 5, -3, -64, 0,5, -1, 8,-1 

490 data 8,7, 10,9, 12, 7, -64, 0,-3, -18, -3, 6, -64,0 

500 DATA 5, -10. 5, 6, -64, -64 

510 DATA -8. 6, -4, -3, -4, 6, -6, 7, -5, 7, -3, 8, -2, 9, -64,0 
520 data -3, -3, -3, 7, -1,8, -64, 0,-2, -3, -2, 6, 0,7 
530 DATA 1,7, -1.8, -2. 9, -64, 0,-4, -3,0, -4, 2, -5, 3,-1 
540 data 3, 0,-2, 3, -64, 8, I, -4, 4, -I, -64, 0,-2, -3 
550 DATA 0,-4, 3,0, -64, -64 

560 DATA -8, 6, -6, -3, -5, -3, -4, -2, -4, 6, -6, 7, -5, 7, -3, 8 
570 data -2, 9, -64,0, -5, -4, -3, -3, -3, 7, -1,8, -64,0 
580 DATA -6, -3, -4, -5. -2, -3, -2. 6.0, 7, 1,7, -1,8. -2, 9 
590 DATA -64, 0,-2, -3, 2, -3, 3, -4, 3, -3, 6, -3, -64. a 
600 DATA 1,-4, 2, -3, 4, -3, -64, 0,0, -4, 2, -2.4, -2. 6, -3 
610 DATA -64,-64 

629 DATA -9, 9, -7, -3, -6, -3, -5, -2, -5, 6, -7, 7, -64. 0,-6, -4 

630 DATA -4, -3,-4, 7, -2, 8, -64, 0,-7, -3, -5, -5, -3, -3 
640 DATA -3, 6, -1, 7,0, 7, -64, 0,-7, 7, -6, 7, -4, 9, -3, 9 
650 DATA -2, 8, 0.7, 3, 6, -64, 0,3, -5, 4, -4, 6, -3 

660 DATA 7, -3, 5. -2. 3, 10,4, 13.2. 13,0, 16, -1,15, -3. 14 
670 DATA -5.14.-64,0,2,-4,4.-3,4,10,-64,0,1,13 
68H DhTA -1, 14, -2, 14, -64. 0.3. -5.1, -3,3. -2, 3, 8, 4. 11 
-.90 DhTA 4,13,-64,0,2,15,1,14,-1,13,-3,13,-3,14 
700 data -64.-64 
710 DATA -8. 8, -64, -64 

720 DATA -13, 11 , -4, - 11 , -6, -10, -a, -0,-9, -6, -II, -3, -10, 1, -9, 4 

^30 DATA -8, 6, -5, 8, -2, 9, 1,9, 4, 8, 6. 7, 8, 5 

740 DATA 9, 3, -64, 0,-0, -7, -9, -4, -9, 1,-7, 3,-4, 7, -1,9 

750 DATA 2, 8, 5, 7, -64, 0,-4, -11, -6, -9, -7, -7, -a. -4 

760 DATA -0, a, -,%3. -4, 6, -1,7, 2. 7. 3. 6, 7. 5,9, 3 

’70 DhTA -64 , 8, -2, -0, -2, 4, -64 , 1. - 1 , -fl, - 1 , 2, -64 , 8 

780 DATA 0. -9,0. 1,-1, 3, -2, 4, -64. 8, -2, -8. a, -9. 3. -12 



OhTA 5, -11. 7, -11, 9, -12, -64, 0,2, -11, 4, -10, 6, -10 
DhTA -64, 0,1, -10,3, -9, 5, -9, 7, -10, 9, -12, -64, 0,3, -9 
eio DATA 3,6, -64, -64 

620 DATA -9, 9, -6, -10, -5. -9, -5, 6, -7, 7, -6, 7, -4, 8, -3, 9 

830 DATA -64, 0,-4, -9. -5, -10, -4, -11,-4, 7, -2, 9, -64,0 

840 DATA -6, -10, -3, -12, -3. 6, -I, 7, -3, 9, -64, 0,-3, -2, 0,-3 

850 data 2, -4, 3, -3, 4. -4, 6, -3, 7, -3, 5, -2, 5, 7 

96A DATA 3, 9, 2 , 1 1 , -64 , 0, 2 , -4, 4, -3, 4, 7, 3 . 9, -64 , 0 

870 DATA 0,-3. I, -3, 3, -2, 3, 7, 2, 11, 2, 14, 3, 16 

680 data 4, 16,2, 14,-64,-64 

890 DATA -5, 3, 0,-12, -2, -10, 0,-9, 2, -10, 0,-12, -64, 0,0, -II 
900 DATA -1,-10, 1,-10, 0,-11, -64, 0,0, -5, -I, -4, -3, -3 
910 data -1.-2. -1,7, 1,9, 3, 7, -64, 0,0, -2, I, -3, 0,-4 

929 DATA -1,-3, 0,-2, 0,7, 1,8, -64, 0,0, -3, I, -4 

930 DATA 3,-3, 1,-2, I, 6, 2, 7, 3, 7,-64, -64 

940 DATA -8, 8, -5, -3, -5, 1,-3, 2, 3, 2, 3, 3. 5, 7, -64,0 

950 DATA -4, -3, -4, I, -64, 0,4, 3, 4, 7, -64, 0,-2, -4 

960 DATA -3, -3, -3, 1,-1, 2, -64, a. 1,2, 3, 3, 3, 7. 2, 8 

970 DATA -€4, 0,-5, -3, -2, -4, 0,-5, 2, -4, 4, -4, 5, -5 

930 DATA -64, 0,-1, -4, 1,-4, -64, 0,-2, -4, 0,-3, 2, -3, 4, -4 

990 DhTA -64 . 0, 5 , 7 , 2 . 8 , 0. 9 , -2 , 9 . -4 , 8, -6 , 9 

1000 DATA -64,0, 1,8, -I, 8, -64, 0,2, 8,0, 7,-3, 7, -6, 9 

1010 DATA -64, 0,5, -5, 4, -3, 2, 0,-3, 5, -6, 9, -64, -64 

1020 DATA -5, 5. -2, -10, -1,-0, -1,6, -3, 7, -2, 7, 0,8, 1,9 

1030 data -64, 0,0, -8, -1,-10, 0,-11, 9, 7, 2, a, -64,0 

1040 DATA -2, -10, 1,-12, I, 6, 3, 7, 4, 7, 2, 8, 1,9, -64,0 

1050 DATA -4. -5, -1,-5, -64,0, I, -5, 4, -5, -64, -64 

1060 DhTA -13, 13, -11. -3, -10, -3, -9, -2, -9, 6, -11,7, -10, 7. -8. 3 

1070 DATA -7, 9. -64, 0,-9, -4, -8, -3, -a, 7, -6, 9, -64,0 

1080 data -11, -3, -9, -5, -7, -3, -7, 6, -3, 7, -7, 9, -64, 0,-7, -2 

1090 data -4, -3, -2, -4, -I, -5, 1,-3, I, 6, 3, 7, 1,9 

1109 OhTh -64, a, -2, -4, 0,-3, 0,7, 2, 8, -64, 0,-4, -3, -3, -3 

1110 DATA -1,-2, -I, 6, -2, 7, 0,8, 1,9, -64,0, 1,-2 

1120 DATA 4. -3, 6, -4, 7, -5, 8, -4, 10,-3, 11, -3, 9, -2, 9, 6 

1130 data 10,7, 11, 7, -64, 0,6, -4, 0,-3, 8, 7, 9, 9 

1140 DATA -64. 0,4, -3, 3, -3, 7, -2, 7, 7, 9, 9. 11,7,-64,-64 

1150 data -S, 9, -2, 0,-4, 2, -3,4, -5, 6, -4, 0,-2, 9, 0,7 

1160 CATa 3.6, -64, a, -5, 4, -4, 6, -3, 7, -1,8, -64,0 

1170 DATA -4, 2. -4, 4, -3, 6, -I, 7, 0,7, -64, 0,-4, -2. -2, -2 

1180 DATA 1,-3, 3, -4, 4, -5, 6, -3. 3, -2, 5, 6, 6, 7 

1190 DATA ■’.7, -64, 0,-3, -4, -4, -3, -1,-3, -64, 0,2, -3, 3, -3 

1200 ;-TA 4. -4, 4, 7, 5. 8, -64. 0,-3. -3, -3, -3, -2, -4 

1210* DATA 0,-3, 3, -2, 3, 7, 5, 9, 7, 7, -64, 0,-3, -3, 0,2 

1220 [lATA -64,-64 

1230 DATA -7, 8, 5, -6. 6, -6. 7, -7, 6, -4, 3. -6, 3, -7, 0,-7 
1240 DATA -2, -6, -3. -5, -3, -3, -2, -2, 3, I, 4, 2, -64,0 
1250 DATA -3, -4. -2, -3. 3,9,4, I, 4, 4, 3, 3, 1,6, -2, 6 
1260 data -4, 5, -5, 3, -6, 6, -5, 3, -4, 5, -64, -64 
1270 Ch’h -3.5. 1,-7, 1 ,-6,2, -6, 2, -7, I, -7, -64, 0,-4, 9 
1200 DATA -3, -2, -2. -3, 0,-3, I, -2, I, 0,0, 3, 0,3 
1220 DATA 1.6. -64, a. -1,-3, 0,-2, 0,0, -I, 3, -1,3, 0,6 

1309 data 2, 6,3. 5, 4, 3, -64, -64 

1310 DATA -7, 7, 4, -3, 2. 4, 1.7, 0,9, -64, 0,3, -3, 3. 4 
1720 data 2, 7, 0,9. -2, 19, -5, 10, -6. 9, -5, 9. -4, 10 

1230 DATA -64,0,3, 1. 3.-1. 1,-3, -1, -3, -3, -2, -4, -I, -3, I 
1340 DATA -5, 3, -4, 5, -2, 6, 0,6, 2, 4, -64, 0,-1, -3 
1350 DATA -3, -1.-4, 1.-4, 4. -2, 6, -64. -64 
1360 data -6.6, -64, -64 

data -7, 8. 4. -3, 2, 4, 2. 3, 3, 6, 5, 6, 6, 3, 7, 3 
1780 [’hTa -64,8, 5, -3, 3,4. 3,3, 4,6, -64,0, 3. 1 
\ ’9h (-ATA 3, -1. I, -3. -1,-3, -3, -2, -4,-1, -3, 1,-5, 3,-4, 3 
!48a DATA -2, 6, 0,6. 2. 4, -64, 0,-1, -3, -3, -1,-4, I 
Mie data -4. 4. -2, 6. -64. -64 

1420 DATA -9. 9, -7, 3, -6, -2. -5, -3, -3, -3, -2, -2, -2. -1,-4, 6 

1430 DATA -64, 0,-4, -3, -3, -2, -3, -I, -3, 6, -64,0, -2,-1 

1440 DATA -1.-2, I, -3, 3, -3, 5, -2, 3, 8, 4, 3, 4, 3, 3, 6 

1450 DhTA -64. 0,3, -3. 4, -2, 4, 0,3, 3, 3, 3, 4, 6 

1460 DATA 6. 6, 7, 5, 8, 3, -64, -64 

1470 DATA -7, 8, 5. -7, 2, 4, 2, 3, 3, 6, 3, 6, 6, 3, 7, 3 

1480 DATA -64. 0,6, -7, 3, 4, 3. 3, 4, 6, -64,0, 3. 1 

1490 DATA 3. -1,1, -3. -1,-3, -3, -2, -4, -I, -5, 1,-5, 3, -4, 3 

1500 data -i. 6, 0,6, 2, 4, -64, 0,-1, -3, -3, -I, -4, I 

1510 data -4, 4. -2. 6, -64, 0,3, -7, 6, -7, -64, -64 

15;0 DATA -7. 7, 4, -6, 5, -6, 6, -7, 3,-4, 4, -6. 2, -7, 0,-7 

1530 DATA -2, -6. -3, -3, -4, -3. -3, 0,-5, 3, -4, 3, -2, 6 

1540 oath 0.6, 2. 5. 3, 4, 4, 1,-64, 0,0, -7, -2, -5, -3, -3 

1550 DATA -4, 8. -4, 4. -2, 6, -64, a, 0,6, 2,4, 3, I 

1560 DATA -64,0,1.1,6,1,-64,-64 

1570 DATA -19, 10. -9,0. -9, -2, -7, -3, -3, -3, -4, -2, -4, 0,-5, 3 

1580 DATA -5,5, -4,6, -64. 0,-6, -3. -5, -2, -3. 0,-6, 3 

1590 DATA -6,5, -4, 6, -3, 6. -1,5, 0,4, -64. 9, 2, -3, 0,4 

1600 DATA 0.5, 2. 6, -64. 0,3, -3, I, 4, 1,5, 2, 6 

1610 DATA 3, 6. 5, 5, 7, 3, 8, 0,8, -3, 7, -3, 8, -2, -64, -64 

1620 DATA -7, 5, -4, 3, 0,2, 2, I, 3, 0.3, -2, I, -3, -I, -3 

1630 DATA -3.-2, -4, -I, -3, 1,-5, 3,-4, 3, -2, 6. 0,6 

1640 DATA 2. 5, 3, 4, -64, 0,-1, -3, -3, -I, -4, I, -4, 4, -2, 6 

1630 DATA -64,-64 

1660 UIEWPCRT 10,120.60,47 

1670 A*-131 

1680 B»339 

1690 restore 350 

1700 FOR I-l TO 4 

1710 C0SU8 2020 

1720 NEXT I 

1730 RESTORE Z60 

1740 FOR l*l TO 5 

1750 GOSUB 2020 

1760 NEXT I 

1770 RESTORE 360 

1780 cosue 2928 

1790 RESTORE 890 

1809 FOR 1-1 TO 3 

IS 10 GOSUe 2028 

1820 NEXT I 

1830 RESTORE 940 

1840 COSUB 2028 

1850 UIEWPORT 30,100,30.40 

1260 A*-173 

1870 &»343 

1800 RESTORE 1239 

1890 FOR I-l TO 7 

1900 GOSUe 2020 

1910 NEXT I 

1920 RESTORE 1360 

1930 GOSUe 2020 

1940 RESTORE 1520 

1950 FOR I-l TO 3 

I960 GOSUe 2020 

1970 NEXT I 

1980 RESTORE 1420 

1990 GDSUe 2020 

2900 HOME 0T: 

.;010 GC TO 2200 
2020 READ C.D 
2030 A-A-C 
204A 6=e*c 

2050 WINDOW A,B,-30,30 
2060 READ X.Y 

20’9 IF Xa-64 hND Y--64 THEN 2149 
2080 MO"E 0T:X,Y 
2090 READ X,V 

2100 IF X--64 AND Y--64 THEN 2140 

2110 IF X--64 AND Y-0 THEN 2170 

2120 DRAW #T:X.Y 

2130 GO TO 2090 

2140 A-A-D 

2150 B-e-0 

2160 RE I URN 

2170 READ X.Y 

2180 NONE 0T:X,Y 

2190 uO TO 2090 

2200 WINDOW 0,130,0, 100 

2205 ui£Wf'ORT 0.130.0.100 
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SET (iEG»EES 
WtMtOH -13,13,-19,10 
:-I30 FO» J-1^.5> TO 13 STEP 0.05 

^i;A» K"- J-3 

?250 MOiiE »T; JtCOSa?),KtSIN( 15) 
£•260 FOP 1-45 TO 375 STEP 30 
£-270 X- J«COSt I / 
c200 I > 

2200 C-PmU «fT:X,Y 
2300 HE 'T I 
£319 HE XT J 
2320 HOME 0T; 

2330 EHD 




CHRISTMAS CARD planed from the program of Dr. P.C. Holman 
and his staff of the University of Wisconsin-Stevens Point. 4051 
Applications Library program 451100-^012 0 (Lerov Character 
Generator) was incorporated as a subroutine to generate the text. 



4 RUN 180 

8 LIST 

9 END 

95 REH CHRISTMAS CARO 

96 REM AUTHOR: DR. P.C. HOLMAH, U OF HISCOHSIH, STEUEHS POIHT 
100 IHIT 



lie 

130 

148 

158 

168 

170 

180 

190 

200 

210 

229 

230 
240 
250 
260 
270 
280 
290 

309 

310 
320 
330 
340 
350 
360 
370 
380 
390 
40t 
410 
420 
430 
448 
450 
460 
470 
480 

■ 490 
500 
510 
520 
530 

549 

550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
679 
690 
710 
720 
730 
750 
760 
770 
700 
790 

eeo 

010 

828 



T-1 



LET Ul«5 
LET U-2 

UlEUPORT 0, 130,87, 190 

SCALE 4,4 

LET 14-1 

LET I1«0 

REM 

MOUE tT:0,10 
DRAW tT:8,S0 
DRAM fT:26O,50 
DRAW 9T:269. 10 
ORAM tT:0,10 

FOR 1-0 TO 260 STEP 260/52 
LET Il-IUl 

IF 11-3 OR 11-6 OR 11-10 OR 11-13 OR 11-17 OR 11-20 OR 11-24 THE 410 

IF 11-27 OR 11-31 OR 11-34 OR 11-38 OR 11-41 OR 11-45 THEN 410 

IF 11-48 OR 11-52 THEN 410 

MOUE 0T;I,25 

DRAM fT:I,18 

MOUE #T;I,52 

IF Il-l OR 11-53 THEM 400 

LET U-U+1 

IF UO10 THEN 380 

LET U-0 

LET Ul-Ul+1 

REM 

RHOUC tT:e,6 
GO TO 440 
REM 

MOUE fT:l,50 
ORAM tT:i,ie 
NEXT I 

LET 18-260/52 

FOR I-I8-2.5 TO 300 STEP ABS<I0) 

IF 14-2 OR 14-5 OR 14-9 OR 14-12 OR 14-16 OR 14-19 OR 14-23 THEN 600 

IF 14-26 OR 14-30 OR 14-33 OR 14-37 OR 14-40 OR 14-44 THEN 600 

IF 14-47 OR 14-51 OR 14-52 THEN 600 

IF I4>52 THEN 660 

MOUE fT:I+l,50 

DRAM fT;l4l,25 

ORAM fT.‘I-^4,25 

DRAM fT: I^4.50 

RMOUE it: -2.0 

FOR J-0 TO 1 STEP 0.3 

RDRAM fT:0.-25 

RMOUE tT:0.5,25 

NEXT J 

LET I4-I441 

NEXT I 

MOUE fT:l,13 
FOR L-1 TO 5 
FOR I-l TO 10 
LET Il-I 

REM t SECOND FILE STARTS HERE » 

IHIT 

T-1 



REM 

LET A-115 
LET Bl-25 
B-2 



MINDOH O,76tB,0,S6t8 
MOUE IT: 50, 65 
COSUB 1830 
PRINT tT, 21135, 95 
PRINT IT, 21:28.50 
PRINT IT, 21:28, 47 
PRINT 81,21:33, 38 



630 PRINT fT, 21:35, 33 

840 print #T, 21:35, 29 

050 IF T-32 THEN 080 

660 print fT, 21:90, 1 

870 PRINT fT,2i: 150, 100 

900 PRINT fT,21: 100,25 

890 PRINT fTl’FROM OUR COMPUTER' 

900 PRINT fT,21: 108,21 
910 PRINT fT'.'TO YOURS" 

920 LET A-115 
930 LET Bl-2 

950 UIHDOU 0,76>8, 0,5648 

960 MOUE fT:50,65 

970 GOSUB 1030 

980 PRINT fT, 21:94, 4 

990 PRINT fT:*UE LIFT OUR CIRCUITS" 

1000 PRINT fT,2i: 105, 1 

1010 PRINT fT:"IH SONG" 

1011 FOR 15-1 TO 1009 

1012 NEXT 15 

1013 HOME fT: 

1020 GO TO 1960 
1030 MOUE fTlA.ai 
1040 SCALE 1.8, 1.8 
1050 RMOUE fT:l8.5,5 

1069 RMOUE fT.’2, 10.5 

1070 RDRAM fT:-9.5,4 

1089 RDRAM fT:-l,0.5 

1090 RDRAM fT;-e.S,0.5 
1100 RDRAM fT:0,2.2S 
1110 RDRAM fT:0.5,6.25 
1120 RDRAM fT:O.25,0. 75 
1130 RDRAM fT;8.75,0.25 
1140 RDRAM fT: 13, 1.5 
1150 RDRAM fT: 15,0.5 
1160 RDRAM fT:0. 75,-1 
1178 RDRAM fT:l.25,-19 
1180 RDRAM fT:6.5,-3.5 
1190 RDRAM fT:-0.5,-l 
1200 RDRAM fT;-17,-3.75 

1219 RDRAM fT;-l,0 

1220 RDRAM fT:-3.5,0.5 
1230 RDRAM fT:-5,2.25 
1240 RMOUE fT*.5,-2.25 
1250 RMOUE fT:-1.5,-7.75 
1260 RMOUE f T:4.75, 1.5 
1270 RMOUE fT;1.25,5.75 
1280 RDRAM f T: -20. 25 , 8 . 25 
1290 RMOUE fT:-0.25, 1 . 75 
1300 RDRAM fT; 14, -5.25 
1310 RDRAM fT:S,-3.5 

1329 RDRAM fT:0.5,-l 

1330 RMOUE fT:-9.25,l 
1340 RDRAM fT;l7,3 
1350 RMOUE fT:-0.5,-0.3 
1360 RDRAM fT:0.5,0.25 
1370 RDRAM fT:8,0.25 
1300 RDRAM fT:-6. 75,3.5 
1390 RDRAM fT:-l,10 
1488 RDRAM f T: -0. 75, 0. 75 
1418 RDRAM fT: -15. 25, -6. 5 

1429 RMOUE fT:l,0.75 

1430 RDRAM fT: -1,-0. 75 
1440 RDRAM f Tl - 8 . 25, -0. 75 
1458 RDRAM fT:f.2S,-12 
1460 RDRAM fT:i7,2.5 
1470 RMOUE fT:0. 25,-0. 75 
1480 RDRAM fT: 3. 75, -2. 25 
1490 RDRAM fT:-1.75,-0.25 
1500 RDRAM fT:-3.5,2.25 
1510 RDRAM fT:l.5,0.25 
1520 RMOUE fT:-2.25, -0.5 
1530 RDRAM fT:-ll,-l,75 
1540 RDRAM fT:3,-2.25 
1550 RORAH fTl3,0.5 

1560 RDRAM fT:0.5,-0.5 
1570 RDRAM fT;4.75,0.73 
1580 RDRAM fT:-0.5,0.5 
1590 RDRAM fT:3.5,0.5 
1600 RDRAM #T : -3. 25, 2 . 25 
1610 RMOUE fT:-a. 75,3.3 
1620 RDRAM #T:-0.5,-0. 12 
1630 RDRAM fT:-0.75,7 
1640 RDRAM fT:0.3,0 
1650 RDRAM f Tt 0. 75, -6. 87 
1660 RMOUE fT:i.75,0.25 
1670 RDRAM fT: 1,0. 12 
1680 RDRAM fT;-0, 12,0.75 
1690 RDRAM fT:-l,-0. 12 

1709 RDRAM fT: 0. 12, -0. 75 

1710 RMOUE IT;-0.25,3 
1720 RDRAM fT:i,0.12 
1730 RDRAM fT:-0. 12,0.75 
1740 RDRAM fT:-l,-0.12 
1750 RDRAM fT;0. 12, -0. 73 
1760 RMOUE fT: -0.23, 1.5 
1770 RDRAM fT:l,0.12 
1780 RDRAM f T: -0. 12, 0. 75 
1790 RDRAM fT:-l,-0.12 
1800 RDRAM fT.'f. 12,-0.75 
1810 RMOUE fT:-0.25, 1.5 
1820 RDRAM fT: 1,0. 12 
1830 RDRAM f T: -0. 12, 0. 75 
1840 RDRAM fT;-l,-0. 12 
1850 RDRAM fT:9. 12, -0. 73 
1860 RMOUE fT;-3.23,0.25 
1870 RDRAM f T: -0. 25, 0. 25 
1880 RDRAM fT:-9.S,-0.5 
1890 RDRAM f T: -0. 23, -0. 25 
1900 RDRAM fT:0.S,-8.25 
1910 RDRAM fT:0.25,-0.25 
1920 RDRAM fT;9.75, 1.25 
1930 RDRAM fT:8.25,0.S 
1940 RDRAM f T: -0. 75, 7. 25 
1950 RETURN 

1960 REM 

1970 COSUB 2720 

1980 A-0 

1990 Cl-31 

2000 MOUE fT;9,155 

2010 PRINT fT: 

2025 Z9-0 

2030 FOR 1-1 TO Cl 

2040 READ C« 

2058 IF C1021 THEN 2070 
2060 PRINT fT:* 

2065 REMtItIF 29-0 THEN 2070 
2866 REM 444 PRINT fT: 

2070 LET S-1.35 
2880 GOSUB 2848 
2805 IF 1-Cl THEN 2100 
2098 PRINT fT: 

2188 NEXT I 
2101 29-1 

2118 IF Cl-21 THEN 2158 
2128 HOME 8T: 
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2130 

2H0 

2150 

2160 

2170 

2189 

2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2265 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2448 
2445 
2450 
2460 
2478 
2480 
24S0 
2500 
251B 
2520 
2530 
2540 
2545 
2550 
2560 

2579 

2580 
2590 
2596 
2600 
2610 
2620 
2633 
2640 
2659 
2655 
2 720 
2730 
2740 



LET Cl-21 
CO TO 2930 
EHD 
REH 
REN 
REN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



THE THELUE DAYS Of CHRISTNAS” 

OH THE FIRST DAY OF CHRISTNAS TEKTRONIX SENT TO NE. A* 
BRAND HEH 4051. * 

OH THE SECOND DAY OF CHRISTNAS TEKTRONIX SENT TO ME,' 
TWO BLANK TAPES, AHD A BRAND HEH 4051.' 

OH THE THIRD DAY OF CHRISTNAS TEKTRONIX SENT TO HE,* 
THREE BEARCAT PROCPANS, THO BLANK TAPES, AHD A ' 
BRAND HEH 4051.' 

OH THE FOURTH DAY OP CHRISTNAS TEKTRONIX SENT TO HE,' 
FOUR HEHSLETTERS. THREE BEARCAT PROGRAMS. THQ BLANK' 
TAPES, AND A BRAND HEH 4051. 



DATA *OM THE FIFTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME,' 

DATA • FIUE ROLLS OF PAPER, FOUR NEWSLETTERS, THREE BEAR-’ 

DATA • CAT PROGRAMS, TWO BLANK TAPES. AND A BRAND HEH 4051.' 

DATA *OH THE SIXTH DAY OF CHRISTMAS TEKTRONIX SENT TO HE,' 

DATA ' SIX DIGITAL PLOTTERS. FIUE ROLLS OF PAPER, FOUR- 
OATA • HEHSLETTERS, THREE BEARCAT PROGRAMS, TWO BLANK TAPES, 
DATA • AND A BRAND HEW 4051.' 

DATA 'ON THE SEUEHTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME,' 
DATA * SEUEH DIGITIZERS, SIX DIGITAL PLOTTERS, FIUE ROLLS' 
DATA * OF PAPER, FOUR HEHSLETTERS, THREE BEARCAT PROGRAMS,' 
DATA ' THO BLANK TAPES, AHD A BRAND HEH 4051.' 

DATA 'ON THE EIGHTH DAY OF CHRISTMAS TEKTRONIX SENT TO HE,' 

DATA • EIGHT LINE PRINTERS, SEUEH DIGITIZERS, SIX DIGITAL- 

DATA • PLOTTERS, FIUE ROLLS OF PAPER, FOUR HEHSLETTERS,' 

DATA ' THREE BEARCAT PROGRAMS, THO BLANK TAPES AND A 6RAHD' 
DATA • HEH 4051.' 

DATA 'OH THE NINTH DAY OF CHRISTMAS TEKTRONIX SENT TO ME,' 

DATA - NINE DISC UNITS, EIGHT LINE PRINTERS, SEUEH ' 

DATA • DIGITIZERS, SIX DIGITAL PLOTTERS, FIUE ROLLS OF' 

DATA ' PAPER, FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS,' 

DATA • THO BLANK TAPES, AHD A BRAND M‘EW 4051.' 

DATA 'OH THE TENTH DAY OF CHRISTMAS TEKTRONIX SENT TO * 

DATA • ME, TEN WORKING JOYSTICKS, NINE DISC UNITS, EIGHT" 

DATA ' LIME PRINTERS, SEUEH DIGITIZERS, SIX DIGITAL' 

DATA ’ PLOTTERS, FIUE ROLLS OF PAPER, FOUR NEWSLETTERS," 

DATA ' THREE BEARCAT PROGRAMS, THO BLANK TAPES, AHD A' 

data “ BRAND NEW 4051." 

DATA "OH THE ELEUEHTH DAY OF CHRISTMAS TEKTRONIX SENT TO" 

DATA " ME, ELEUEH HARD COPY UNITS, TEH WORKING JOYSTICKS.* 

data • NINE DISC UNITS, EIGHT LINE PRINTERS, SEUEH' 

DATA • DIGITIZERS, SIX DIGITAL PLOTTERS, FIUE ROLLS OF" 

DATA • PAPER, FOUR HEHSLETTERS, THREE BEARCAT PROGRAMS,* 

DATA * TWO BLANK TAPES, AND A BRAND HEH 4951." 

DATA "OH THE TWELFTH DAY OF CHRISTMAS TEKTRQHIX SENT TO" 

DATA ' ME, THELUE CARTRIDGE TAPE UNITS, ELEWEH HARD" 

DATA " COPY UNITS, TEH WORKING JOYSTICKS. NINE DISC" 

DATA • UNITS, EIGHT LINE PRINTERS, SEUEH DIGITIZERS, SIX- 

DATA • DIGITAL PLOTTERS, FIUE ROLLS OF PAPER. FOUR HEWS-* 

DATA * LETTERS, THREE BEARCAT PROGRAMS, TWO BLANK TAPES. ' 

DATA " AND A BRAND HEH 4851." 

REM THIS ROUTINE INITIALIZES THE TABLES USE BY THE 

REM CHARACTER GENERATOR. IT SHOULD BE EXECUTED yohCE'' BEFORE 

REM the character GENERATOR IS USED. d.t. GQSU8 9000> 



200 HtHOOH -20,20,-20,20 
210 L«I0 

220 REM R1 th* r.uHbcr o# Hakcf. <20 to 35) 

230 R1»RMD<-1 ;I20*15 
^40 FOP 0»1 TO R1 

250 REM XI, Y1 If th« rondoM location. 

260 Xt*»MO(-l>«U 
270 r I -PMO^-1 )t8B 

280 REM A i( rotation onflt o# tivt tlaka 
290 A-RHO^-I)t60 
380 rotate a 

310 'MEHPOR7 Xl,Xl+20,Yl,Yl429 
320 REM j IS thf nanbtr oF "JoiRti". 

330 J^IHT^RH0<-1 >II4*5) 

349 DIM X^5t J-41, Y<5» J-4) 

3 50 < J-l / 

760 REM H IS the wa’.iHun itnath of a "leiRa*. 

370 REM M-TAM<30)t.5»l/SIN<60>*2 (if uou cart.) 

380 H-0.6666667»L 

390 FOR I»1 TO 5IJ STEP 5 

400 REM D2 If tht cu«u)ativt dlstanct froR ctnttr. 
410 02-D|l< U-l )/5) 

420 REM M IS tht actual “loikt* Itnfth. 

438 H«(H-HtAeSCD2-L^2)/<0.5tL)>tRHD(-l) 

440 REM nowt out a distanct d 

450 X( I)«D1 
460 YU ,/«0 

470 IF I>41J THEN 610 

450 REM calculate x,y at 60 dtjrtt antlt. 

490 X( dl)-0.5tM 

500 Y, !♦! )«O.866025tM 

510 REM return to ctnttr lint. 

520 X( I^2>--X(I+1 > 

530 Y< I*2>«-Y(I41> 

540 REM drow loutr sptRt. 

550 X( I»3)»X( I + d 
560 YC U3>--Y<' !♦! ) 

570 REM '•eturn to center lint. 

580 y.< 1*4 .M-vf > 



590 V^ 1*4 t»l i 



600 NE -'.T I 

610 FOR R*0 TO 300 STEP 60 

629 ROTATE R*A 

630 MOUE RU:0,a 
640 PDRAU *u;>:,Y 
650 NEXT R 

660 REM reser rotation angle to original. 

670 R'yTATE A 

660 REM R2 13 the n.inber of concentric hexagons. 
690 R2«RilD,-i - ft 
700 FOR J=l TO R2 

710 REM S is the sire of the hexagon. 

720 S-«>€*<-l)SJ»l.3 
730 MOVE 0u:0,a 
740 RMOVE 0U:S,a 

750 REM this looo dra« a hexagon s units big. 

769 FOR I«0 TO 360 STEP 60 

770 ROTATE A-tl 

780 RDRAH 8U:S»-0. 5, Sta. 866025 
790 NEXT I 
800 NEXT J 
019 DELETE X.Y 

829 NEXT Q 

830 EHD 



"J 



c 






I 



EDITOR'S NOTE: STATEMENTS 2750 THRU 4790 ENCOMPASS 4051 APPLICATIONS 
LIBRARY PROGRAM 51x00-8012/0, "LEROY CHARACTER GENERATOR." 




RA S DOM SNOW FLA KES generated from a program contributed by 
Mark Mehal, Tektronix Systems Analyst, Chicago, 



1 REM default device is the screen. 

2 GO TO 130 

4 ^H?!****^ definable key 1 vlll use the plotter. (unit»l> 

5 U-l 

6 U-130 

7 CO TO 170 

100 REM snowflake proeren 12/22/76 (alMOSt christnas) ne 
110 REM version 1.2 (randoe rotation and faster) 1 6/76 
120 REM Mark Mehall Chicago Field Office 
130 IHIT 
140 PACE 

150 REM U is the unit number (l-plottcr, 32-fcreen). 

160 U-32 

170 REM U IS the naximuM viewport minus 20 (130-plotter, 110-scrten). 

168 o-tie 

190 SET DECREES 




ike fo5/ 

l\fplicatior)s 
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4051 Graphic System Publications 

By Les Brabetz 

The following table contains a summary of all current manuals related to the 4051 Graphic System. The correct 
nomenclature, latest published date, and Tektronix part number are included. This list contains all manuals 
published up to August 15, I977. 

Contact your local Tertronix office for prices, availability, and to order any of these publications. 

4051 and RELATED PERIPHERAL MANUALS 


Manual 


Publication Date 


Part # 


STANDARD 


4051 Graphic System Operator's 


1 JAN 76 


070-1940-00 


4051 Graphic System Reference 


: JAN 76 


070-2056-00 


Reference Guide to 4051 BASIC 


1 3rd Printing 


070-2142-00 


PLOT 50: Introduction to Pro- 


' DEC '’5 


070-2058-00 


gramming in BASIC 
PLOT 50: Introduction to Graphic 


: DEC *’5 


^ 070-2059-00 


Programming in BASIC 




j 


SERVICE 


4051 Graphic System Service Vol. 1 


1 MAY ”'7 


j 070-2065-00 


4051 Graphic System Service Vol. 2 


MAY "7 


070-2286-00 


#067-0746-00 System Test Fixture 


JU\ '7 


j 070-2304-00 

1 


ROM PACK 






405 IRQ I Matrix Functions 


JUN 76 


070-2127-00 


4051R05 Binary Program Loader 


AUG 76 


070-2171-00 


405 1R06 Editor 


FEB 77 


070-2170-00 


405IE01 ROM Expander Instruction 


DEC 76 


070-22154)0 


INTERFACE 






4051 Option I Data Communications 






Interface 


MAR 77 


070-2066-01 


4051 Option 10 RS-232 Printer 
Interface 


JUN 76 


070-2119-00 


4051 GPIB Hardware Support 


MAR 77 


070-2270-00 


4051 GPIB Application Support 


APR 77 


070-2307-00 


SOFTWARE 






4050 AO I PLOT 50: Statistics Vol. I 


DEC 75 


062-18544)0 


4050A02 PLOT 50: Statistics Vol. 2 


JUN 76 


062-1855-00 


4050A03 PLOT 50: Statistics Vol. 3 


DEC 75 


062-1856-00 


4050A04 PLOT 50: Mathematics Vol. I 


NOV 75 


062-1857-00 


4050A05 PLOT 50: Mathematics Vol. 2 


DEC 75 


062-1858-00 


4050A06 PLOT 50: Electrical Engineer- 
ing Vol. 1 


DEC 75 


062-2280-00 


4050A07 PLOT 50: Graph Plot 


MAR 77 


070-2288-00 


4050A08 PLOT 50: General Utilities 
Vol. 1 


MAR 77 


070-2287-00 


4050A09 PLOT 50: Business Planning 
and Analysis 


OCT 76 


070-2226-00 


4050A10 PLOT 50: Statistics Vol. 4 


MAR 77 


070-2214-00 
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Manual 


Publication Date 


Part No. 


PERIPHERAL 


4631 


4631 Hard Copy Unit Users 


SEP 74 


070-1830-01 


4631 Hard Copy Unit Service 


DEC 76 


070-1831-01 


4641 


4641/4641-4 Character Printer 


OCT 76 


070-2110-00 


Operator’s 






4641/4641-4 Printer Service 


NOV 76 


070-2111-00 


4662 


4662 Interactive Digital Plotter 






User 


DEC 76 


070-1932-01 


4662 Interactive Digital Plotter 






Service 


JAN 77 


070-1933-00 


#067-0829-00 4662 Test Tape 






Operators 


JUN 77 


070-2366-00 


4924 


4924 Digital Cartridge Tape Dnve 






Operator’s 


SEP 76 


070-2128-00 


4924 Digital Cartridge Tape Drive 






Service 


NOV 76 


070-2131-00 


49.24 Reference Guide 


MAR77 


070-2302-00 


4952 


4952 Joystick Option 2 




070-2098-00 


4956 


4956 Graphics Tablet Operator’s 


FEB 77 


070-2210-00 


4956 Graphics Tablet Service 


FEB 77 


070-2211-00 






l^tronbc 
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try using the following: 







Speed and Memory Savings 
Suggestions 

by Han Klinkspoor, Tektronix Datatek 
Badhoevedorp, The Netherlands 

Speeding Up Proceedings 

^Take non-reievant statements out of loops. For exam- 
ple, consider the following listing: 

100 For to 10 
1 10 Print Using 120:1 
120 Image .... 

130 Rern^ 

140 Next I 

This loop can be speeded up by moving lines 120 and 130 
outside the loop. (Overhead is .5 msec line + processing 
time.) 

^Minimize Jumps 
*Use Subroutines 

*Avoid recalculation of the same variable 
♦Avoid unnecessary numeric computations. For exam- 
ple: 

110 Print 5*10, I should be 110 Print 50, I 

Recover Your Memory 

Delete data statements when they are no longer needed. 
For example: 

150 DATA 

160 DATA 

170 DATA 

180 DATA 

190 READ A,B,C$,F 
200 DELETE 150,200 

Save Your Memory 

When you need a Waiting Loop, instead of using a 
FOR/NEXT LOOP such as 



PRINT USING M28C"*-)S-: 

When you need a Horizontal Line, instead of using a 
FOR/ NEXT loop such as 



10000 FOR I-l TO 72 
10010 PRINT 
10020 NEXT I 

try using the following: 

10000 PRINT USING 

This method not only saves memory, but is faster as well. 

Correct Tape Inserted? 

by Leslie Diane Sivak 

Florida Solar Energy Center 

Before MARKing a file (or files) on a tape cartridge, 
make sure that you have the correct tape cartridge in the 
4051. 

(The author of this bit speaks from experience. She says 
she didn't check, destroyed someone else's file, and was 
lucky to leave the computer room alive! — ed.) 



4051 Applications Library 
Program Abstracts 

Documentation and program listings of these programs may be ordered 
for $15.00 each. Programs will be put on tape for an additional 32.00 
handling charge per program and a $26.00 charge for the tape cartridge. 
(The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix-. Inc. assumes no responsibility 
and shall have no liability, consequential or otherwise, of anv kind 
arising from the use of this program material or any part thereof) 

Please use the Applications Library Order Form. Order forms are 
included in the Membership Packet and are available from your local 
Tektronix Sales Engineer. Orders outside of the U.S. must be ordered 
through the local Tektronix sales office. ii:-1 

ABSTRACT NUMBER: 51/00-5402/0 

Title: Globe Rotation 
Author: Donald N. Sweetnam 
Jet Propulsion Lab 
Pasadena, CA 
Memory Requirements: 8K 
Statements: 146 

This program allows a user to view a global representa- 
tion of a planet or spherical surface from any direction. 
This is accomplished by generating a reference globe and 
rotating about any or all of the three axes. 



FOR I»1 TO 1000 
NEXT I 
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The reference globe is generated in a right hand Cartesian 
coordinate system with the Z-axis pointing toward the 
north pole, the X-axis pointing through the prime (0) 
meridian and the Y-axis completing the system. The 
reference globe is positioned on the 4051 screen with the 
Z-axis up, the X-axis to the left and the Y-axis toward the 
user. The step to create the reference globe need only be 
done once since the coordinates are saved on tape. 

Desired rotations are then chosen, the rotations made, 
and the resulting globe projected onto the display. 
Longitude lines are provided every 30 degrees as are 
latitude lines. Longitude coordinates are plotted every 6 
degrees and latitude coordinates every 3 degrees. Hidden 
coordinates are not displayed. 

The program employs extensive use of the User Definable 
Keys. 



ABSTRACT NUMBER; 51/00-8014/0 

Title: Program File Recovery 

Memory Requirements: 32K 
Peripherals: 463 1 Hard Copy Unit 
Statements: 73 

This program was designed to recover a file which was 
"lost" due to a user powering up the 405 1 , inserting a tape, 
typing FINd (n) and then inadvertently typing SAVe 
instead of OLD. The program is recovered line by line and 



written to another file as well as printing to the screen and 
copying. All but approximately eight lines will be 
recovered with the original statement numbers intact. 

The program can also be used to recover program 
statements which were lost due to other circumstances, 
but the chances of success are smaller. 



ABSTRACT NUMBER: 51/00-1403/0 

Title: Analysis of Logic Circuit Behavior 
Author: K. J. Orford 

Physics Department 
Durham University 
Memory Requirements: 16K 
Peripherals: None 
Statements: 325 

This program stores the interrelationships of logic 
elements (gates, latches, etc) in a complex circuit, and 
predicts the state of all the elements a short time later. The 
program then has three optional modes. It can stop and 
print out, or continue and predict the next state and print 
until stopped, or continually predict subsequent states 
and show a selected number (up to 12) as waveform on the 
display. The three modes are selected by User-Definable 
Keys. Up to eight input lines may be used and changed at 
will during execution by pressing the User-Definable 
Keys. 



liaktronix 

COMMITTED TO EXCELLENCE 



TEKTRONIX, INC. 
Information Display Group 
Applications Library 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97005 
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ADDRESS CORRECTION REQUESTED 




